home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PREVIEW.DIR / 00154_Script_video manager < prev    next >
Text File  |  1997-07-22  |  3KB  |  100 lines
  1. property pLastStartTimePtr, pClipList, pClipListCount
  2. global gQTchan, gCursorStack, gTheSoundLevel, gDefaultVolume
  3. on new me, clipList
  4.   
  5.   set pLastStartTimePtr = 0
  6.   set pClipList = [:]
  7.   sort pClipList
  8.   do "set pClipList = " & clipList
  9.   set pClipListCount = count(pClipList)
  10.   return me
  11. end
  12.  
  13. on roll me
  14.   --  set the soundlevel to gTheSoundLevel
  15.   set the volume of sprite gQTchan to gDefaultVolume
  16.   set the movieRate of sprite gQTchan = 1
  17.   return me
  18. end
  19.  
  20. on cueNext me, transitionSpec
  21.   
  22.   push gCursorStack
  23.   
  24.   -- scan index for next clip
  25.   repeat with i = 1 to pClipListCount
  26.     set nextStartTime = getpropat(pClipList, i) 
  27.     if nextStartTime > the movieTime of sprite gQTchan then exit repeat
  28.   end repeat
  29.   
  30.   
  31.   -- handle list wraparound for stop time
  32.   set the loop of the member of sprite gQTchan to FALSE
  33.   case true of
  34.       
  35.     (i = pClipListCount):
  36.       --      set nextStartTime = getpropat(pClipList, pClipListCount+1)
  37.       set nextStopTime = the duration of the member of sprite gQTchan
  38.       nothing
  39.       
  40.     (i > pClipListCount):
  41.       set nextStartTime = getpropat(pClipList, 1)
  42.       set nextStopTime = getpropat(pClipList, 2)
  43.       set the loop of the member of sprite gQTchan to TRUE
  44.       nothing
  45.       --      set nextStopTime = the duration of the member of sprite gQTchan
  46.       
  47.     otherwise:
  48.       
  49.       set nextStopTime = getpropat(pClipList, i+1)      
  50.   end case
  51.   
  52.   -- hold it
  53.   set the movierate of sprite gQTchan to 0
  54.   -- set in point
  55.   set the movieTime of sprite gQTchan = nextStartTime  
  56.   -- roll it
  57.   set the movierate of sprite gQTchan to 1
  58.   
  59.   
  60.   -- set out point (optional)
  61.   --  set the stopTime of sprite gQTchan = nextStopTime  
  62.   
  63.   --  updatestage -- preroll(?)
  64.   
  65.   puppettransition transitionSpec
  66.   
  67.   pop gCursorStack
  68.   
  69.   return me
  70. end
  71.  
  72. on playQTClip me, startTime, stopTime, noVideoFlag
  73.   
  74.   set the movierate of sprite gQTchan to 0
  75.   set inTime = startTime
  76.   set outTime = stopTime
  77.   
  78.   --  if voidP(noVideoFlag) then 
  79.   --    set the video of the member of sprite gQTchan to 1
  80.   --  else set the video of the member of sprite gQTchan to 0
  81.   
  82.   if voidP(startTime) then 
  83.     set inTime = 0
  84.   end if
  85.   
  86.   if voidP(stopTime) then 
  87.     set outTime = the duration of the member of sprite gQTchan
  88.   end if
  89.   
  90.   --  set the soundlevel to gTheSoundLevel
  91.   set the volume of sprite gQTchan to gDefaultVolume
  92.   
  93.   set the movietime of sprite gQTchan to inTime
  94.   set the movierate of sprite gQTchan to 1
  95.   set the stoptime of sprite gQTchan to outTime
  96.   
  97.   return me
  98.   
  99. end
  100.